(in-package :lilu-app)

(register-application
 (make-instance 'simple-terminal-app
		        :name :htop
                :program "htop"
                :version-option "--version"
                :version-script "htop --version | awk '{ print $2 }'"
                :make-args-fn #'(lambda (app &key user)
                                  (declare (ignore app))
                                  (format *debug-io* "==>~A ~A~%" app user)
                                    (when user
                                      (list "-u" user)))
                :tags '(:app)))
